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Version: *v04-000' 
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ie DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 
:* ALL RIGHTS RESERVED. : 
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'¢4¢ 
Facility: VAX/VMS Telephone Facility, BLISS Require File 
Abstract: This is the BLISS require file for the PHONE facility. 
It includes various useful constructs and the definitions 
of all control blocks used by the facility. 
Environment: 


Author: Paul C. Anagnostopoulos, Creation Date: 29 December 1980 
Modified By: 


v03-001 PCA1020 aul C. Anagnostopoulos 27-May-1983 


i 
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i 
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i 
i 
* Add various suienen status codes. 
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' 
: Here we will define ‘‘extensions’’ to the BLISS Language. 


i First we need values for boolean variables. 


Literal 
false = 0, 
true 21; 


! Now we will define macros to generate various things associated with 
i string descriptors. 


field Gopereter ree = 
ee ee F 


ptr = (4,0,3 
tes; 


macro ay rt = 
block(8,byte] field(descriptor_fields) %; 


macro descr ibef = 
uplit long(Zcharcount (Zremaining), uplit byte(Zremaining)) %; : 


! Now we define two macros that can generate descripted buffers. The 
i first is for OWN buffers and the second for LOCAL buffers. Note that 
i the local buffer must be defined Last in the declarations. 


macro own_described BsLength.byies | th) = 
name: block[8+Llength, byte) field(descriptor_fields) 
initial(len engt th,name+8) 


%; 
macro local and block ast patter Cnene st ngth) = 
e: £0y82.03 1 S"fenath: ted 9 gid (descriptor_fields); 


— etrs = 
! Now we define macros to increment and decrement a variable. 
macro inc(var) = 
var = .var + 1) &, 
dec(var) = 
(var = .var - 1) &; 


! We need an ‘infinite’ loop contruct. We also need a more elegant construct 
! for terminating a loop. 


ol 
dhag~ Fs 1 do %; 


macro exitif(] = 
if Zremaining then exitloop; 2%; 


! Define a macro that can check statuses from routines. 
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macro check(status) = 
(if not eyetus then 
5 


. gnal(status);) 
! Declare BLISS routines that aren't defined by default. 
builtin 

allg, 

nsque, 

remque; 


! Define Literals for useful control characters. 
Literal 


perre= = e, Oe ! Special for PHONE. 
= qx . 
backspace = %x' Bie 
tab = %x'09', 
Linefeed = Zx'Oa', 
formfeed = Xx'0c', 
ret = Zx'Od', 
ctrl_u = Zx‘15', 
ctrl_w = Zx‘17°, 
ctrl_z = Zx'la‘, 
escape = Zx'1b', 
delete = Xx'7f': 
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! Now we get to stuff more gpeerets to PHONE. The following Literals are 
! used throughout the facility. 


Literal 
phnSk_mbxsize = 256, 


Maximum mailbox message size. 


phnsk_getipiefn = 1, ! Event flag for SGETJPI. 

phn$k_kbdefn = ¢° ! Event flag for keybogrd. 

phn$k_smbefn = 3, ! Event flag for steering nessage queue 
phn$k_decnetefn = 4, ! Event flag for logical Link 1/0. 
phn$k_ourmbxefn = 5; ! Event flag for our mailbox reads. 


! The following information defines the Target Specification Block, which 
! is needed to contain the parsed target specifications of people or nodes 
! we wish to communicate with. 


Literal 
tsb_k_size = 228; 


seadeatit tsb struclof feet posit ion.size, index: J = 

tsb_k_size 

(tsb_structof fset+8*index)<position,size,0>; 

field tsb_fields = set 
tsb_w 


_w_ flags = 8.8.16 0), ! Word of flags: 
tsb_v_remote = [0:0.1,6), ; The target is on a remote node. 
tsb_v_user = (0,1,1,0] ! e target is a user. 
tsb_w_tkncount = ¢-0.16.04, ! Specification token count. 
tsb_q_tkndsc = (4,0,0]), ! Array of token descriptors. 
tsb_t_string = (84,6,0.0) ! Target specification string. 


tes; 


macro tsb = 
tsb_struc() field(tsb_fields) %; 


! The following information defines the Phone Unit Block, which contains the 
! information necessary to control the communication between us and some 
! other person or node. NOTE that it contains a TSB, as defined above. 


field fields = set 
or L_flink 


pub_ = (0,0.32.0). ! Forward Link. 

pub_l_blink = (4, 3 -O), ! Backward Link. 

pub_l_ length = (8 -0J, |! Length of this PUB. 

pub_b_tsb = (12,6 ! TSB describing this person or node. 
pub_w_ flags = £246,6,16,63. | word of flags: 

pub_v_uhaveheld = (240,0,1,0), ! You have this person on hold. 
pub_v_hasuheld = (240,1.,1,0J, ! This person has you on hold. 
pub_v_t rary = (246 egele — This is a fenporery PUB. 
pub_v_cal ing = [240,5,1,0], ! You are calling someone. 
pub_v_answering = [240,4,1 } Someone is calling you. 
pub_w_depth = [2462,0,16,1J. ! You have person at this hold Genth. 
pub_w_channel = [246 Bo} OJ, ! Channel number for communication. 
pub_l_busylink = $8.2. -0J, |! Address of PUB we're busy with. 
pub_w_viewsize = (252,0,16,0J, ! Size of current viewport. 
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pub_wiviewline = 2%. 16,0], ! Starting Line of Fyrrent viewport. 
pub_lictlcount = -0.3¢-0J. ! Count of CTLs on List. 
pub_q.ctiheadd = -0.3¢.0)], ! Header for CTL List. 
pub_q.ctlhead] = -Y.2¢.01. 
he pub_|_topctl = 8,0,52, ! CTL at the ‘'top’’ of the viewport. 
Literal 
pub_k_size = 272, : Gyeral size of PUB 
pub-k-minlines = 3, i Minimum allowable viewport size. 
pub_k_maxlines = 10; ! Maximum allowable viewport size. 
macro pub = 


blockCpub_k_size,byte] field(pub_fields) %; 


! The following information defines a Conversation Text Line buffer, which 
: eegtesne, one jie of text from the conversation. These blocks are chained 
! off o € ° 


Et_t ! Forward Link. 


li flink = (0,0, 8 e oJ 

ctl_l_blink = 00:3 0), |! Backward Link. 
ctl_l_length = (8 0 ! Length of this CTL. 
ctl_l_stamp = €12,6,32,05, | Synchronization stamp for transcript. 
ctl_q_line = 16.0.0.6 » | Descriptor for conversation Line. 

. ctl_t_linebuf = (24,0,0, ! The conversation Line text. 

es; 

Literal 
ctl_k_size = 103; ! Overall size of a CTL. 

macro ctl = 


block(ctl_k_size,byte] field(ctl_fields) %; 


! The following information defines the Stegring Message Block, which is 
! used to control the sequencing of events in PHONE. 


field smb_fields = set 


aliflink = (0, 3 -0], ! Forward Link. 
ti blink = (4,0,32,0], ! Backward Link. 
smb_w_length = (8,0,1 ! Length of this SMB. 
smb_w_type = [16,6,16.05, | Type goge for this message. 
smb_q_msg = (12.0, 6 - | Descriptor for the message text. 
‘ smb_t_msgbuf = [20,0,0, ! Start of the message text. 
es; 
Literal 
smb_k_s’ze = 20; ! Base size of SMB. 


macro smb = 
block€ byte] field(smb_fields) 2%; 


Literal MESSAGE TYPES: 


Get keyboard input. 


smb__kbd_get = 1, 
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smb__kbd_route ! Route keyboard input. 


smb__cmd_parse Collect and parse command. 
smb__talk Handle text we type 
smb__help2 : Handle help info. scrolling. 
smb__ring_out Ring someone’ $ enone. 
smb__slave verify Network save verify user. 
smb__rang_Tn Someone ringy ng us. 
smb__hungup Someone hung up gn us 
smb__busy ! Phone we're call is busy. 


smb_ “an cored Person has answere ® ati 

Person ner rejected a eget . 
Network _ ave: processing at 
' Handle text someone else t typed 
Handle directory info scro ing. 

! Handle facsing a record. 

Handle a forced Link. 

Someone put us on hold. 

Someone took us off hold. 


- 
"direc ter 
smbofacsint (25 
smb_ ~forged He 

e 
smb__unheld 


hnunnnnnnnnnnnnnannunn 
DODONAEA ("OOOO unr 
Sree eeeseeseeseeseeeees 


ee ee ee ee ee 
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! The following table of Literals defines the messages used by PHONE. 
external Literal 


n$_ok, 
phn$_answered, 
phn$_busycall, 
phn$_cancall, 
phn$_cantreach, 
phn$_confcall, 


phn$_ring, 
phn$_rejectjunk 
phn$_sendingmai(, 


phn$_ 
phn$_ivreduncal(, 


phn$_remoteerror, 
phn$_targterm, 
phn$_unplugged, 
phn$_bacterm 
phn$_sharedmbx, 
phn$_inputterm; 
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! The following declarations declare ALL the gepet data used in the facility. 
! We only declare the data if the symbol GLOBAL_DATA is not defined: if 

! defined, it means we are compiling the main module, which contains the 
i definitions themselves. 


Zif not Xdeclared(global_data) Z%then 


external 
phn$gq_node_name: descriptor; 


external 
phn$gq_switch_hook: descriptor, 
phn$gl_viewport_size: long, 
phn$gb_scroll: Byte; 


external 
phn$gq_pubhead: vector(2,long); 

external 
phn$gb_flags: byte; 

macro 
phn$gv_message = phn$gb_flags<0,1,0> %, 
phn$gv_scroller = phn$gb_flags<1,1,0> %, 
phn$gv_scrollprep = phnegd.flage<¢. 1-22 %, 
phn$gv_facsimile = phn$gb_flags<5,1,0> %; 


afi 
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